home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / shellsort.bas < prev    next >
Unknown  |  1994-05-18  |  1.1 KB  |  [ZTKN/ZBAS]

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default


id metadata
keyvalue
macFileType[ZTKN]
macFileCreator[ZBAS]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217 A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 10 00 01 ff d2 00 00 | f0 5a 54 52 4f 4e 20 62 |........|.ZTRON b|
|000000c0| 00 00 00 3a 00 02 ff ee | 00 00 f0 13 20 20 20 20 |...:....|.... |
|000000d0| 20 20 20 20 20 73 65 65 | 20 71 75 69 63 6b 73 6f | see| quickso|
|000000e0| 72 74 20 61 6e 64 20 68 | 65 61 70 20 66 6f 72 20 |rt and h|eap for |
|000000f0| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 00 00 00 4a |instruct|ions...J|
|00000100| 00 03 ff c4 00 00 f2 08 | 20 23 31 2c 20 22 53 48 |........| #1, "SH|
|00000110| 45 4c 4c 53 4f 52 54 20 | 20 20 28 70 72 65 73 73 |ELLSORT | (press|
|00000120| 20 6d 6f 75 73 65 20 74 | 6f 20 65 78 69 74 29 22 | mouse t|o exit)"|
|00000130| 2c 28 34 2c 33 38 29 2d | 28 36 35 30 2c 35 30 30 |,(4,38)-|(650,500|
|00000140| 29 3a f0 28 20 31 30 30 | 00 00 00 3a 00 04 ff b4 |):.( 100|...:....|
|00000150| 00 00 f0 64 20 30 2c 20 | 5f 63 61 73 65 49 6e 73 |...d 0, |_caseIns|
|00000160| 65 6e 73 69 74 69 76 65 | 20 5f 73 74 72 52 65 73 |ensitive| _strRes|
|00000170| 6f 75 72 63 65 20 5f 6d | 61 63 73 62 75 67 4c 61 |ource _m|acsbugLa|
|00000180| 62 65 6c 73 20 00 00 1a | 00 05 ff c4 00 00 f0 19 |bels ...|........|
|00000190| 20 41 2d 5a 3a f0 06 20 | f2 0a 3a f0 28 20 31 30 | A-Z:.. |..:.( 10|
|000001a0| 30 00 00 2a 00 06 ff e4 | 00 00 5f 4e 20 3d 20 31 |0..*....|.._N = 1|
|000001b0| 35 30 30 30 f0 5a 20 6e | 75 6d 62 65 72 20 6f 66 |5000.Z n|umber of|
|000001c0| 20 67 75 79 73 20 74 6f | 20 73 6f 72 74 00 00 10 | guys to| sort...|
|000001d0| 00 07 ff d4 00 00 f0 0a | 20 41 28 5f 4e 29 00 00 |........| A(_N)..|
|000001e0| 00 0c 00 08 ff ee 00 00 | f0 1f 20 f0 66 00 00 26 |........|.. .f..&|
|000001f0| 00 09 ff f2 00 02 f0 61 | 20 f2 02 20 73 68 65 6c |.......a| .. shel|
|00000200| 6c 73 6f 72 74 28 4d 2c | 4e 29 3a f0 0a 20 48 53 |lsort(M,|N):.. HS|
|00000210| 28 31 30 29 00 00 00 40 | 00 0a ff d8 00 02 6d 3d |(10)...@|......m=|
|00000220| f4 18 28 4e 29 2f f4 18 | 28 33 29 3a 48 53 28 31 |..(N)/..|(3):HS(1|
|00000230| 29 3d 31 3a f0 01 20 6c | 3d 32 20 f6 04 20 6d 3a |)=1:.. l|=2 .. m:|
|00000240| 48 53 28 6c 29 3d 33 2a | 48 53 28 6c 2d 31 29 2b |HS(l)=3*|HS(l-1)+|
|00000250| 31 3a f0 07 20 6c 00 00 | 00 1e 00 0b ff be 02 04 |1:.. l..|........|
|00000260| f0 01 20 4b 3d 31 20 f6 | 04 20 6d 2d 31 3a 48 3d |.. K=1 .|. m-1:H=|
|00000270| 48 53 28 6d 2d 4b 29 00 | 00 14 00 0c ff e0 04 06 |HS(m-K).|........|
|00000280| f0 01 20 49 3d 48 2b 31 | 20 f6 04 20 4e 00 00 14 |.. I=H+1| .. N...|
|00000290| 00 0d ff ea 06 06 56 3d | 41 28 49 29 3a 4a 3d 49 |......V=|A(I):J=I|
|000002a0| 2d 48 00 00 00 22 00 0e | ff ea 06 06 22 62 61 63 |-H..."..|...."bac|
|000002b0| 6b 22 f0 0f 20 4a 3c 31 | 20 f6 05 20 f0 0d 20 22 |k".. J<1| .. .. "|
|000002c0| 6f 6e 77 61 72 64 22 00 | 00 24 00 0f ff dc 06 06 |onward".|.$......|
|000002d0| f0 0f 20 41 28 4a 29 20 | 3c 3d 20 56 20 f6 05 20 |.. A(J) |<= V .. |
|000002e0| 20 f0 0d 20 22 6f 6e 77 | 61 72 64 22 00 00 00 22 | .. "onw|ard"..."|
|000002f0| 00 10 ff da 06 06 41 28 | 4a 2b 48 29 3d 41 28 4a |......A(|J+H)=A(J|
|00000300| 29 3a 4a 3d 4a 2d 48 3a | f0 0d 20 22 62 61 63 6b |):J=J-H:|.. "back|
|00000310| 22 00 00 18 00 11 ff dc | 06 06 22 6f 6e 77 61 72 |".......|.."onwar|
|00000320| 64 22 41 28 4a 2b 48 29 | 3d 56 00 00 00 0e 00 12 |d"A(J+H)|=V......|
|00000330| ff e6 02 02 f0 07 20 49 | 2c 4b 00 00 00 0c 00 13 |...... I|,K......|
|00000340| ff f0 00 00 f0 1f 20 f2 | 02 00 00 46 00 14 ff f2 |...... .|...F....|
|00000350| 00 00 f0 13 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00000360| 20 20 20 20 20 20 20 20 | 20 6f 75 72 20 74 65 73 | | our tes|
|00000370| 74 20 69 73 20 74 6f 20 | 73 6f 72 74 20 31 35 30 |t is to |sort 150|
|00000380| 30 30 20 72 61 6e 64 6f | 6d 20 6e 75 6d 62 65 72 |00 rando|m number|
|00000390| 73 00 00 28 00 15 ff b8 | fe 00 4e 3d 5f 4e 3a f0 |s..(....|..N=_N:.|
|000003a0| 01 20 4b 3d 31 20 f6 04 | 20 4e 3a 41 28 4b 29 3d |. K=1 ..| N:A(K)=|
|000003b0| f4 17 28 4e 29 3a f0 07 | 20 4b 00 00 00 1e 00 16 |..(N):..| K......|
|000003c0| ff d6 00 00 f0 47 3a f2 | 02 20 73 68 65 6c 6c 73 |.....G:.|. shells|
|000003d0| 6f 72 74 28 4d 2c 4e 29 | 3a f0 47 00 00 26 00 17 |ort(M,N)|:.G..&..|
|000003e0| ff e0 00 02 22 70 72 69 | 6e 74 69 74 22 f0 01 20 |...."pri|ntit".. |
|000003f0| 4b 4b 3d 31 20 f6 04 20 | 4e 3a f0 31 20 41 28 4b |KK=1 .. |N:.1 A(K|
|00000400| 4b 29 3b 00 00 1c 00 18 | ff d8 02 02 f0 0f 20 f2 |K);.....|...... .|
|00000410| 0b 28 5f 64 6f 77 6e 29 | 3c 3e 30 20 f6 05 20 f0 |.(_down)|<>0 .. .|
|00000420| 1f 00 00 10 00 19 ff e2 | 00 00 f0 07 20 4b 4b 3a |........|.... KK:|
|00000430| f0 12 00 00 00 08 00 1a | ff ee 00 00 00 00 00 0a |........|........|
|00000440| ff ff ff f6 ff 00 f0 12 | 00 00 |........|.. |
+--------+-------------------------+-------------------------+--------+--------+